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-- Includes. Mesa Edited by Sandman on August 3, 1978 11:54 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AltoFileDefs: FROM "altof iledef s" , 
BcdDefs: FROM "bcddefs", 
ControlDefs: FROM "controldef s" , 
DirectoryDefs: FROM "directorydefs" , 
ImageDefs: FROM "imagedefs", 
IODefs: FROM "iodefs", 
MiscDefs: FROM "miscdefs", 
Mopcodes: FROM "mopcodes", 
OutputDefs: FROM "outputdef s" , 
SymDefs: FROM "SymDefs", 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s" , 
StreamDefs: FROM "streamdef s" , 
SymbolTableDefs: FROM "SymbolTableDef s" , 
SystemDefs: FROM "SystemDefs", 
TimeDefs: FROM "timedefs"; 

DEFINITIONS FROM AltoDefs, AltoFileDefs, SegmentDefs, OutputDefs; 

Includes: PROGRAM 

IMPORTS DirectoryDefs, IODefs, MiscDefs, OutputDefs, SegmentDefs, 

StringDefs, SymbolTableDefs, SystemDefs, TimeDefs, StreamDefs ■ PUBLIC 
BEGIN 

NullTime: TimeDefs . PackedTime » [0,0]; 

NullStamp: BcdDefs .VersionStamp = [FALSE, 0, 0, [0,0]]; 

SP: CHARACTER - ' ; 

FF: CHARACTER ■ 14C; 

FileEntry: TYPE ■ RECORD [ 

link: FEPtr, 

name: STRING, 

includes: POINTER TO Includeltem, 

includedBy: POINTER TO Includeltem, 

stamp: BcdDefs .VersionStamp , 

mark: BOOLEAN, 

busy: BOOLEAN, 

bad: BOOLEAN]; 
FEPtr: TYPE - POINTER TO FileEntry; 

fileList: POINTER TO FileEntry «- NIL; 

Includeltem: TYPE = RECORD [ 
link: POINTER TO Includeltem, 
includedFile: FEPtr, 
stamp: BcdDefs .VersionStamp] ; 

TimeLess: PROCEDURE [a,b: TimeDefs . PackedTime] RETURNS [BOOLEAN] = 
BEGIN 
RETURN[IF a.highbits » b.highbits THEN a.lowbits < b.lowbits 

ELSE a.highbits < b.highbits] 
END; 

CompareString: PROCEDURE [a.b: STRING] RETURNS [{less , equal , greater}] » 
BEGIN 
CharAnd: PROCEDURE [CHARACTER, WORD] RETURNS [CHARACTER] ■ 

MACHINE CODE BEGIN Mopcodes . zAND END; 
1: CARDINAL = MIN[a. length , b . 1 ength] ; 
i: CARDINAL; 
ca, cb: CHARACTER; 
FOR i IN [0. .1) DO 

ca <- a[i]; 

cb 4- b[1]: 

IF ca IN ['a.^z] THEN ca *- CharAnd[ca, 137B] ; 

IF cb IN ['a..'z] THEN cb ♦- CharAnd[cb , 137B] ; 

IF ca < cb THEN RETURN[less]; 

IF ca > cb THEN RETURN[greater] ; 

ENDLOOP; 
RErURN[SELECT a. length FROM 

< b. length «> less, 

b. length -> equal, 

ENDCASE *> greater] 



Includes. mesa 2-Sep-78 14:40:55 Page 



END; 

CopyString: PROCEDURE [s: STRING] RETURNS [copy: STRING] - 
BEGIN 

copy <~ SystemDefs.AllocateHeapString[s. length]; 
StringDef s . Ap pen dSt ring [copy ,s] ; 
RETURN 
END; 

CheckNamelnList: PROCEDURE [name: STRING] ■ 
BEGIN 
p: FEPtr; 

FOR p «- fileList, p. link UNTIL p •» NIL DO 
SELECT CompareString[p. name, name] FROM 
equal «> BEGIN p. name «- name; RETURN END; 
ENDCASE; 
ENDLOOP; 
END; 

GetFile: PROCEDURE [name: STRING] RETURNS [p: FEPtr] » 
BEGIN 

last: FEPtr <- LOOPHOLE[@f il eList] ; -- assumes link field is word zero 
FOR p «- fileList, p. link UNTIL p ■ NIL DO 
SELECT CompareString[p. name .name] FROM 
less ■> last «- p; 
equal *> RETURN; 
ENDCASE »> EXIT; 
ENDLOOP; 
p *- SystemDefs.AllocateHeapNode[SIZE[FileEntry]]; 
p. link <- last. 1 ink; 
last. 1 ink <- p; 
p. name <- name; 
p. stamp <~ NullStamp; 
p. mark <- p. busy <- p. bad <- FALSE; 
p. includes «- p.includedBy <- NIL; 
RETURN 
END; 

Newlncludeltem: PROCEDURE [link: POINTER TO Includeltem, fe: FEPtr, stamp: BcdDef s.VersionStamp] 
RETURNS [POINTER TO Includeltem] - 
BEGIN 

p: POINTER TO Includeltem; 

last: POINTER TO Includeltem ♦■ L00PH0LE[G1 ink] ; -- assumes link field is word zero 
FOR p <- link, p. link UNTIL p - NIL DO 

SELECT CompareString[p. incl udedFile . name, fe. name] FROM 

less -> 1 ast <- p; 

equal -> RETURN[1 ink] ; 

ENDCASE ■> EXIT; 
ENDLOOP; 
p «- SystemDef s . AllocateHeapNode[SIZE[IncludeItem]] ; 
p. 1 ink <- last. 1 ink; 
last. 1 ink *- p; 
p. includedFile *- fe; 
p. stamp *• stamp; 
RETURN[link] 
END; 

InvalidObjectFile: ERROR [f ile:FileHandle] - CODE; 

LoadSymbols: PROCEDURE [f ile: FileHandle] RETURNS [symseg :FileSegmentHandle] ■ 
BEGIN 

bed: POINTER TO BcdDefs.BCD; 
pages: Al toDef s . PageCount ; 
mtb: CARDINAL; 

mti: BcdDefs.MTIndex « FIRST[BcdDef s .MTIndex] ; 
bedseg: FileSegmentHandle «- NewFi leSegment[f i le, 1, 1 .Read]; 
Cleanup: PROCEDURE ■ 

BEGIN 

Unlock[bcdseg]; 

Del eteFileSegment[ bedseg]; 

RETURN 

END; 
Swapln[bcdseg]; 

bed +- F il eSegmentAddress[bcdseg] ; 
IF (pages *- bcd.nPages) // 1 THEN 
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BEGIN 

Unlock[bcdseg]; 

MoveFileSegment[bcdseg, 1, pages]; 

Swapln[bcdseg]; 

bed «- FileSegmentAddress[bcdseg] ; 

END; 
IF bcd.versionident # BcdDef s .VersionID OR bcd.nModules # 1 THEN 

ERROR InvalidObjectFile[file I UNWIND »> Cleanup[]]; 
mtb ♦- LOOPHOLE[bcd,CARDINAL]+bcd.mtOffset; 

symseg <- FindSegment[bcdseg , (mtb+mti) . sseg, FALSE 1 UNWIND »> Cleanup[]]; 
IF symseg » NIL THEN ERROR Inval idOb jectFil e[f ile t UNWIND => Cleanup[]]; 
Cleanup[] ; 
RETURN 
END; 

FindSegment: PROCEDURE [seg: FileSegmentHandle, sgi: BcdDef s .SGIndex, long: BOOLEAN] 
RETURNS [FileSegmentHandle] » 
BEGIN 

ss: StringDef s.SubStringDes crip tor; 
file: SegmentDef s . FileHandle; 
name: STRING «- [40]; 

bed: POINTER TO BcdDefs.BCD «- FileSegmentAddress[seg] ; 
sgh: BcdDefs.SGHandle <- LOOPHOLE[bcd+bcd . sgOf f set , CARDINAL]+sgi ; 
ssb: BcdDefs.NameString <- LOOPHOLE[bcd+bcd. ssOff set]; 
IF sgh. file ■ BcdDef s . FTNull THEN RETURN[NIL] 
ELSE IF sgh. file - BcdDef s . FFSelf THEN file <- seg. file 
ELSE 

BEGIN 

f: BcdDefs.FTHandle ■ 

LOOPHOLE[bcd+bcd.ftOffset, CARDINAL]+sgh .f ile ; 

ss <- [@ssb . string , f.name, ssb . size[f .name]] ; 

StringDef s .AppendSubString[name , @ss] ; 

Check For Ex ten si on [name, " .bed"] ; 

file *- NewFile[name, Def aul tAccess , Def aul tVersion]; 

END; 
RETURN[NewFileSegment[file, sgh. base, 

sgh. pages + (IF long THEN sgh .extraPages ELSE 0), Read]]; 
END; 

CheckForExtension: PROCEDURE [name, ext: STRING] a 
BEGIN 

i: CARDINAL; 

FOR i IN [0. .name. length) DO 
IF name[i] = ' . THEN RETURN; 
ENDLOOP; 
StringDef s . AppendStr ing[name, ext]; 
RETURN 
END; 

Processlncludes : PROCEDURE [includer: FEPtr, symseg: FileSegmentHandle] ■ 
BEGIN OPEN SymbolTableDefs; 

symbols: SymbolTableBase = AcquireSymbolTable[TableForSegment[symseg]] ; 
mdLimit: SymDef s .MDIndex * LOOPHOLE[symbol s . stHandle.mdBlock . size] ; 
mdi: SymDef s .MDIndex; 
includee: FEPtr; 

ss : StringDef s . SubStringDescriptor ; 
sname: STRING «- [40]; 
tname: STRING; 
i: CARDINAL; 

IODef s . WriteLine[ includer. name] ; 
includer . stamp «- symbol s . stHandle .version; 

FOR mdi «- FIRST[SymDefs .MDIndex] + SIZE[SymDef s .MDRecord] , mdi + SIZE[SymDef s .MDRecord] 
UNTIL mdi « mdLimit DO 

symbols .SubStringForHash[@ss, (symbol s .mdb+mdi ) .mdhti]; 

sname. length <- 0; 

FOR i IN [0. .ss. length) DO 

IF ss.base[ss.offset+i] * '. THEN EXIT; 
StringDef s .AppendChar[ sname , ss.base[ss.offset+i]]; 
ENDLOOP; 
tname <- CopyString[sname]; 
includee *- GetFile[tname]; 
includer . includes «- Newlncl udeltem[ 

includer . includes , includee, (symbol s .mdb-imdi ) .mdStamp]; 
includee. includedBy <- 

Newl nc 1 ude I tem[ includee. includedBy, includer ,Nul 1 Stamp] ; 
ENDLOOP; 
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Re1easeSymbolTable[symbols] ; 

RETURN 

END; 

StripExtension: PROCEDURE [name,ext:STRING] 
BEGIN OPEN StringDefs; 
i, j: INTEGER; 
ext. length «- 0; 
i <~ (j *~ name. length) - 1; 
IF name[i]=\ THEN i <- (j «- i) - 1; 
UNTIL name[i] - ' . DO 

IF name[i] - • I THEN j <- i ; 

IF (i *- i-1) < THEN RETURN; 

ENDLOOP; 
i <- i + 1; 
UNTIL i»j DO 

AppendChar[ext, name[i]]; 

i «- 1 + 1; 

ENDLOOP; 
RETURN 
END; 



ext: STRING <- [Fil enameChars+1]; 

IsBCD: PROCEDURE [fp:POINTER TO FP t name:STRING] 
RETURNS [BOOLEAN] - 
BEGIN OPEN StringDefs; 
okay: BOOLEAN «- TRUE; 
tname: STRING; 
IF names - NIL THEN 

BEGIN 

Str i pEx tens ion[ name, ext]; 

okay <~ EquivalentString[ext , "bed"]; 

IF okay THEN tname «- CopyString[name]; 

END 
ELSE [okay, tname] <- FindNameInList[name]; 
IF okay THEN AddFi1e[InsertFile[f p .Read] , tname]; 
RETURN[FALSE] 
END; 

AddFile: PROCEDURE [file: FileHandle, name:STRING] » 
BEGIN OPEN StringDefs; 
syms: FileSegmentHandle; 
fe: FEPtr; 
i: CARDINAL; 
BEGIN 
syms «- LoadSymbols[f ile 

! InvalidObjectFile = > GOTO invalidfile; ANY »> GOTO badfile]; 
FOR i IN [0. .name. length) DO 
IF name[i] a ' . THEN 

BEGIN name, length <- i; EXIT END; 
ENDLOOP; 
fe *- GetFile[name] ; 
CheckNameInList[name]; 
ProcessIncludes[fe , syms]; 
DeleteFileSegment[syms]; 
EXITS 

invalidfile »> NULL; 
badfile «> 

BEGIN OPEN IODefs; 
WriteString["F1le "]; 
WriteString[name]; 
WriteLine[" is a bad file!!"]; 
END; 
END; 
END; 

NameList: TYPE - POINTER TO Nameltem; 

Nameltem: TYPE * RECORD [ 
link: NameList, 
name: STRING]; 

names: NameList <- NIL; 
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AddName: PROCEDURE [name: STRING] - 
BEGIN 

nl : NameList <- SystemDef s.AllocateHeapNode[SIZE[NameItem]] ; 
nit *- Nameltem[l ink: names, name: CopyAndCheck[name]] ; 
names <- nl ; 
RETURN 
END; 

CopyAndCheck: PROCEDURE [name: STRING] RETURNS [s: STRING] - 
BEGIN 

i: CARDINAL; 

state: {none, ext, dot} <- none; 
FOR i IN [0. .name. length) DO 

IF name[i] ■ '. THEN BEGIN state <- ext; EXIT END; 

ENDLOOP; 
IF name[name. length-1] « '. THEN state <- dot; 
s «- SystemDefs.AllocateHeapString[name. length + 

CARDINAL[(SELECT state FROM dot »> 0, ext ■> 1, ENDCASE -> 5)]]; 
StringDefs.AppendString[s, name]; 
SELECT state FROM 

ext => StringDef s .AppendChar[s , '.]; 

none a > StringDefs .AppendString[s, ".bcd."L]; 

ENDCASE; 
RETURN 
END; 

FindNamelnList: PROCEDURE [name: STRING] RETURNS [BOOLEAN, STRING] - 
BEGIN 

nl : NameList; 
FOR nl «- names, nl.link UNTIL nl » NIL DO 

IF StringDef s. Equi valentStr ing[nl . name, name] THEN 

RETURN[TRUE, nl.name]; 
ENDLOOP; 
RETURN[FALSE, NIL]; 
END; 

PutStamp: PROCEDURE [s: BcdDef s.VersionStamp] ■ 
BEGIN 

PutTime[s .time]; 
PutString[" #"]; 

PutNumber[s. net, [8, FALSE, FALSE, 1]]; 
PutString[" #"]; 

PutNumber[s. host, [8, FALSE, FALSE, 1]]; 
IF s. zapped THEN PutString[" zappedl 1 I "]; 
RETURN 
END; 

printDate: BOOLEAN; 

FileName: PROCEDURE [fe: FEPtr] - 
BEGIN 

PutString[fe.name] ; 

IF -printDate OR fe. stamp. time * NullTime THEN RETURN; 
PutString[" ("]; 
PutStamp[fe. stamp]; 
PutChar[')]; 
RETURN 
END; 

OutputStats: PROCEDURE » 
BEGIN 

badfile: BOOLEAN; 
fe: FEPtr; 

i: POINTER TO Includeltem; 
printDate <- TRUE; 

FOR fe <- fileList, fe.link UNTIL fe ■ NIL DO 
BEGIN 

IF fe. stamp. time - NullTime THEN GO TO loop 
ELSE Fi1eName[fe]; 
PutString[" includes"]; 

IF fe. includes ■ NIL THEN PutString[" nothing"] 
ELSE FOR i «- fe. includes, i.link UNTIL i - NIL DO 

badfile <- i. stamp # i . includedFile. stamp AND i . includedFile. stamp it NullStamp AND i. stamp ^ Nul 
♦♦IStamp; 

PutCR[]; 
PutChar[SP]; 
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PutChar[IF badfile THEN •* ELSE SP]; 
FileName[i .includedFile]; 
IF badfile THEN 
BEGIN 

fe.bad <- TRUE; 

PutString[" included version was "]; 
PutStamp[i .stamp]; 
END 
ELSE IF i. stamp * NullStamp THEN 

PutString[" ** never referenced"]; 
ENDLOOP; 
PutCR[];PutCR[]; 
EXITS loop ■> NULL; 
END; 

ENDLOOP; 
PutChar[FF]; 
printDate <- FALSE; 

FOR fe <- fileList, fe.link UNTIL fe ■ NIL DO 
BEGIN 

FileName[fe]; 

PutString[" is included by"]; 

IF fe.includedBy ■ NIL THEN PutString[" nothing"] 
ELSE FOR i <- fe.includedBy, i.link UNTIL i = NIL DO 
PutCR[]; 

PutString[" "]; 
FileName[i .includedFile]; 
ENDLOOP; 
PutCR[];PutCR[]; 
END; 

ENDLOOP; 
END; 

Compile: PROCEDURE [fe: FEPtr] « 
BEGIN 

i: POINTER TO Includeltem; 
IF fe.mark THEN RETURN; 
IF fe.busy THEN 
BEGIN 

PutString[" 
list of included modules from "]; 
PutString[fe.name] ; 
PutString[" forms a circle 
"3: 

RETURN 

END; 
fe.busy *- TRUE; 
FOR i <~ fe. includes, i.link UNTIL i ■ NIL DO 

Compile[i .includedFile]; 

ENDLOOP; 
PutChar[SP]; 
PutString[fe.name]; 
fe.mark <- TRUE; 
fe.busy <- FALSE; 
END; 

OutputCompileOrder : PROCEDURE * 
BEGIN 
fe: FEPtr; 
PutString["Compi lation Order: 

"]: 

FOR fe <- fileList, fe.link UNTIL fe = NIL DO 

Compile[f e]; 

ENDLOOP; 
PutCR[]; PutCR[]; 
END; 

Init: PROCEDURE » 

BEGIN OPEN SystemDefs; 
fe: FEPtr; 

i: POINTER TO Includeltem; 
UNTIL fileList - NIL DO 

UNTIL fileList. includes ■ NIL DO 

i «- fileList . includes. 1 ink; 

FreefleapNode[f ileList. includes]; 

fileList. includes <- i ; 

ENDLOOP; 
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UNTIL f ileList. includedBy ■ NIL DO 

i «- f ileList . includedBy. link; 

FreeHeapNode[f ileList. includedBy]; 

f ileList . includedBy ♦- i; 

ENDLOOP; 
fe <~ f ileList . 1 ink ; 
FreeHeapString[f ileList .name]; 
FreeHeapNode[f ileList]; 
fileList <- fe; 
ENDLOOP; 
RETURN 
END; 

GetToken: PROCEDURE [name: STRING, in: StreamDef s.StreamHandle] » 
BEGIN 

c: CHARACTER; 
name. length *- 0; 
UNTIL in.endof[in] DO 
c *- in.get[in]; 
SELECT c FROM 

IODefs.SP, IODefs.CR «> IF name. length # THEN RETURN; 
ENDCASE »> StringDefs.AppendChar[name, c]; 
ENDLOOP; 
RETURN 
END; 

DoWork: PROCEDURE ■ 
BEGIN 

cfa: POINTER TO Al toFileDef s .CFA; 
in: StreamDef s.StreamHandle; 
root: STRING *- [40]; 
name: STRING *- [40]; 
cfa «- MiscDef s .CommandLineCFA[] ; 
in <- StreamDef s.CreateByteStream[ 

SegmentDefs.InsertFile[@cfa.fp, StreamDef s .Read] , StreamDef s. Re ad]; 
StreamDef s.JumpToFA[ in, @cf a. fa]; 
GetToken[root, in]; 

IF root. length a THEN StringDef s. AppendString[root, "Includes"]; 
Init[]; 

IODefs.WriteChar[ IODefs.CR]; 
GetToken[name, in]; 
UNTIL name. length » DO 

AddName[name]; 

GetToken[name, in]; 

ENDLOOP; 
DirectoryDef s.EnumerateD i rectory [I sBCD]; 
OpenOutput[ root, ".list"]; 
OutputCompileOrder[]; 
OutputStats[]; 
CloseOutput[]; 
END; 

MyVersion: PROCEDURE RETURNS [version: BcclDef s .VersionStamp] - 
BEGIN OPEN SegmentDefs; 

self: ControlDefs.GlobalFrameHandle « REGISTER[ControlDef s .Greg]; 
seg: FileSegmentHandle *- NewFileSegment[self . codesegment, file , 1 , 1 , Read] ; 
bed: POINTER TO BcdDefs.BCD; 
Swapln[seg] ; 

bed <- Fil eSegmentAddress[seg] ; 
version <- bed. version; 
Unlock[seg] ; 
DeleteFileSegment[seg] ; 
RETURN 
END; 

Loadlncludes: PROCEDURE ■ 
BEGIN OPEN TimeDefs; 
herald: STRING «- [50]; 

StringDef s . AppendString[herald, "Alto/Mesa Include Checker "L]; 
AppendDayTime[herald, UnpackDT[MyVersion[]. time]]; 
herald, length <- herald . length - 3; 
IODef s .WriteLine[ herald]; 
heral d. length «- 0; 

AppendDayTime[herald , UnpackDT[Def aul tTime]] ; 
herald , length <- herald . length - 3; 
IODefs.WriteL ine[herald]; 



Includes. mesa 2-Sep~78 14:40:55 Page 8 

END; 

— MAIN BODY CODE 

LoadIncludes[]; 

DoWork[]; 

ImageDefs.StopMesa[]; 

END. 



